0 IFA=.THENPOKE55,209:POKE56,135:CLR:A=1
1 IFA=1THENA=2:LOAD"CS.ML1",8,1
2 IFA=2THENA=3:LOAD"CS.ML2",8,1
3 Z=6:Z1=6:PRINTCHR$(142)"[147]":POKE34847,6:POKE34848,6
4 GOSUB168:POKE650,128
6 SYS49152:GOSUB104:PRINTCHR$(147)
8 SYS49574:B=PEEK(782):H=PEEK(781)
10 IFB>39THENB=B-40:GOTO10
12 IFB>40THENH=H-1
14 G=H*40+1024:B=B+G:C=54272+B:IFPEEK(B)=32THENPOKEC,PEEK(646)
16 D=PEEK(B):E=D:F=128:IFD>127THENF=-F
18 E=E+F:POKEB,E:F=-F
20 GETA$:GOSUB32
22 IFPEEK(214)=24THENGOSUB28
24 IFA$<>""THENPOKEB,D:PRINTA$;:GOTO8
26 GOTO18
28 IFA$=CHR$(13)ORA$=CHR$(17)ORA$=CHR$(141)THENA$=""
30 RETURN
32 IFA$>CHR$(132)ANDA$<CHR$(141)THENGOSUB88
34 IFA$=CHR$(133)THENSYS49588:POKE49646,Z:POKE49647,Z1:GOSUB62
36 IFA$=CHR$(137)THENSYS49622:GOSUB64:A$=""
38 IFA$=CHR$(134)THENSYS49261:A$=""
40 IFA$=CHR$(138)THENSYS49366:A$=""
42 IFA$=CHR$(135)THENSYS49486:A$=""
44 IFA$=CHR$(139)THENGOSUB122
46 IFA$=CHR$(136)THENGOTO66
48 IFA$=CHR$(140)THENGOSUB78
50 IFA$=CHR$(2)THENZ=Z+1:POKE53280,Z:IFZ>15THENZ=0
52 IFA$=CHR$(22)THENZ1=Z1+1:POKE53281,Z1:IFZ1>15THENZ1=0
54 IF P=1THENP=0:D=PEEK(B)
56 POKE212,.:RETURN
58 SYS49152:POKE53280,Z+1:FORX=0TO99:NEXT
59 POKE53280,Z:POKE34847,Z:POKE34848,Z1
60 RETURN
62 POKE53280,Z+1:FORX=0TO100:NEXTX:POKE53280,Z:RETURN
64 Z=PEEK(49646):Z1=PEEK(49647):POKE53280,Z:POKE53281,Z1:RETURN
66 GOSUB58
68 PRINTCHR$(147)CHR$(18)CHR$(5)CHR$(17)"LOAD"CHR$(146)CHR$(17)
70 POKE53280,6:POKE53281,6
72 GOSUB90:IFOK$<>"Y"THENGOSUB168:SYS49217:GOTO48
74 SYS49537:SYS49579:IFT$="D"THENGOSUB236
76 SYS34770:Z=PEEK(34847):Z1=PEEK(34848):D=PEEK(B):P=0:GOTO24
78 GOSUB58:POKE53280,6:POKE53281,6
80 PRINTCHR$(147)CHR$(5):PRINTCHR$(18)"SAVE"CHR$(146)
82 GOSUB90:IFOK$<>"Y"THENGOSUB168:SYS49217:RETURN
84 SYS49537:SYS49556:IFT$="D"THENGOSUB236
86 SYS34770:RETURN
88 POKEB,D:P=1:RETURN
90 INPUT"ENTER FILE NAME";N$:IFLEN(N$)>16THEN90
92 INPUT"(T)APE OR (D)ISK";T$:IFT$<>"T"ANDT$<>"D"THEN92
94 INPUT"OK TO CONTINUE (Y/N)";OK$:IFOK$<>"Y"THENGOSUB168:SYS49217:RETURN
96 IF T$="T"THENPOKE49540,1
98 IF T$="D"THENPOKE49540,8
100 L=LEN(N$):FORK=1TOL:POKE52223+K,ASC(MID$(N$,K,1)+CHR$(0)):NEXT
101 POKE49547,L
102 PRINTCHR$(147):RETURN
104 FORX=0TO4:PRINT:NEXT:PRINTCHR$(5)SPC(8)"CUSTOM  SCREEN  DESIGNER"
105 PRINT"            BY STEPHEN RODDA"
110 FORX=1144TO1183:POKEX,42:POKEX+54272,3:NEXT
112 FORX=1544TO1583:POKEX,42:POKEX+54272,3:NEXT
114 FORX=0TO4:PRINT:NEXT
115 PRINTCHR$(5)SPC(6)"[145][145][145]DO YOU WANT INSTRUCTIONS (Y/N)"
116 GETA$:IFA$="Y"THENPRINTCHR$(147):GOSUB124:RETURN
118 IFA$="N"THENRETURN
120 SYS49486:FORX=0TO200:NEXT:GOTO116
122 GOSUB58:PRINTCHR$(147)
124 POKE53280,6:POKE53281,6:POKE212,0
126 PRINTCHR$(19)CHR$(5)"F 1 - MEMORIZES THE SCREEN"
128 PRINT"F 2 - RECALLS THE MEMORIZED SCREEN"
130 PRINT"F 3 - FLIPS THE SCREEN ON THE X AXIS"
132 PRINT"F 4 - FLIPS THE SCREEN ON THE Y AXIS"
134 PRINT"F 5 - REVERSES CHARACTERS ON THE SCREEN"
136 PRINT"F 6 - DISPLAYS THIS HELP SCREEN"
138 PRINT"F 7 - LOADS A PREVIOUSLY SAVED SCREEN"
140 PRINT"F 8 - SAVES THE SCREEN TO DISK OR TAPE"
142 PRINT"CTRL + B - CHANGES THE BORDER COLOR"
144 PRINT"CTRL + V - CHANGES THE BACKGROUND COLOR"
146 PRINTSPC(7)"PRESS ANY KEY TO CONTINUE":WAIT197,4
148 PRINTCHR$(147):PRINT"TO CREATE A SCREEN, YOU MAY USE ANY OF"
150 PRINT"THE LETTERS, NUMBERS, OR GRAPHICS"
152 PRINT"CHARACTERS ON THE KEYBOARD. ALL THE"
154 PRINT"KEYS, SUCH AS THE CURSOR AND INST/DEL"
156 PRINT"KEYS, WILL BEHAVE AS THEY SHOULD."
158 PRINT"TO CHANGE THE COLOR OF THE CURSOR,"
160 PRINT"USE THE STANDARD CTRL KEY WITH A NUMBER"
162 PRINT"KEY, OR THE COMMODORE KEY WITH A NUMBER"
164 PRINTSPC(7)"PRESS ANY KEY TO CONTINUE":WAIT197,4
166 SYS34770:POKE198,0:PRINTCHR$(19):RETURN
168 PRINTCHR$(19):POKE53280,Z:POKE53281,Z1:RETURN
236 OPEN15,8,15:INPUT#15,U,V$:PRINT#15,"I"
238 IFU=0THENCLOSE15:RETURN
240 PRINTCHR$(147):PRINTU,V$
241 PRINTCHR$(17)" PRESS ANY KEY TO CONTINUE"CHR$(19)
242 CLOSE15:WAIT197,4:POKE198,0:RETURN